home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / tests / core.test < prev    next >
Text File  |  1995-06-29  |  1KB  |  58 lines
  1.  
  2. # 
  3. # These tests have all caused core dumps at some stage.
  4. # They are here to ensure that fixes stay fixed
  5. #
  6.  
  7. if {[string compare test [info procs test]] == 1} then \
  8.   {source defs}
  9.  
  10. # set VERBOSE 1
  11. # set INTERACTIVE 1
  12.  
  13.  
  14. #############
  15. # starts here
  16. #############
  17.  
  18. xtAppInitialize -class List
  19. . setValues -allowShellResize true
  20.  
  21. # converter problem using NULL pointer caused only pointer size instead
  22. # of string size to be stored
  23. test core-1.1 {memory test} {
  24.     xmForm .form managed \
  25.     -translations "#override <Key>Return: action(exit)"
  26. } {.form}
  27.  
  28. # WindowToString converter problem when given a Window instead of a Widget
  29. test core-1.2 {memory test} {
  30.     . resources
  31.     set dummy_result 1
  32. } {1}
  33.  
  34.  
  35. proc changer {} {
  36.     .form.text getValues -value text
  37.     .form.btn setValues -labelString $text
  38. }
  39.  
  40. # nested calls to setValues caused problem in memory reclamation
  41. test core-1.3 {memory test} {
  42.     xmTextField .form.text managed
  43.     xmPushButton .form.btn managed
  44.     .form.text valueChangedCallback changer
  45.     .form.text setValues -value "some text"
  46. } {}
  47.  
  48. .form destroyWidget
  49.  
  50.  
  51. #############
  52. # Finish up #
  53. #############
  54. if { ! $INTERACTIVE} {
  55. } else {
  56.   . mainLoop
  57. }
  58.